## Buck Rogers 2 pour Sharp PC1500 ( pas de programme )
## tir du magazine Hebdogiciel N47
## 
## 	Avec ce programme, il vous faudra exercer au mieux vos rflexes et vos dons de pilote de chasse. Vous noterez le graphisme rapide, c'est assez rare!
## 	C'est un jeu qui se droule en trois phases : DEF A pour dmarrer.
## 
## 1 phase :
## 	Vous avez 15 vies, tes dans un tunnel et ne devez pas toucher les murs sous peine de perdre une vie, vous vous dplacez  l'aide des touches 7 pour aller  gauche et 9 pour aller  droite, thme classique jusqu' prsent. Mais voil que des ennemis viennent pimenter votre mission dj difficile. Si vous avez pris le level 0, vous n'aurez que (!) des poursuivants donc, lorsqu'une croix en inversion vido s'affichera sur la gauche de l'cran ( ce symbole est ncessaire, puisque vos ennemis ne pourront pas apparaitre  l'cran ) appuyez le plus vite possible sur la touche Z qui commande votre tourelle arrire, si vous avez appuy assez rapidement tout va bien vous continuez votre route et recevez dix points ( votre score augmente d'un point  chaque tour du programme ). Par contre si vous n'avez pas t assez vif l'ennemi vous dtruit et vous perdez une vie.
## 	Si vous avez pris le level 1, c'est la mme chose sauf que des ennemis vous attaquent par l'avant et donc chaque fois qu' gauche de l'cran s'affichera une croix normale, vous devrez presser le plus tt possible la touche Q commandant votre laser frontal qui dsintgrera votre ennemi et qui vous octroiera 10 points. Toutefois, si vous n'avez pas t assez vite, c'est l'ennemi qui vous dsintgrera et vous perdrez une vie. En tous cas, il vous faudra parcourir 200km avant d'arriver  la phase 2 et il vous faudra aussi pas mal d'entrainement pour y parvenir ( cela dpend des personnes et de leurs rflexes ).
## 
## 2 phase :
## 	Vous sortez du tunnel et vous vous retrouvez dans l'espace mais il y a des vaisseaux ennemis. Vous les combattez un par un. Un vaisseau ennemi s'affiche n'importe o  l'cran et se dplace au hasard. Pour vous dplacer vous utilisez les touches 7 pour aller  gauche et 9 pour aller  droite. Pour dtruire un vaisseau ennemi il faut vous approcher de lui au maximum et lui dcocher une rafale de laser avec vos canons latraux en pressant la touche Space, mais attention, si vous le ratez en n'appuyant pas assez vite, lui ne vous ratera pas et vous fera perdre une vie. Avant de passer  la phase 3, il faudra que vous dtruisiez 30 ennemis mais heureusement le passage de la phase 1  la phase 2 vous rapporte 5 vies.
## 
## 3 phase :
## 	Aprs avoir t flicit, l'ordinateur affiche pendant un peu moins d'une seconde un chiffre fixe  gauche sur l'cran, vous au milieu de l'cran et une mine n'importe o. Il faudra que vous la dtruisiez ainsi que le maximum de ses compagnes avant que toutes vos vies aient t utilises.
## 	Le chiffre de gauche, aprs un bip, se mettra  diminuer, normal !c'est le compte  rebours commandant l'mission d'ondes par la mine qui vous dtruiront lorsque le compteur sera  zro. Vous devez donc juger si vous avez le temps de vous placer sur la mine et d'appuyer sur la touche Q ( trs vite, car mme si le compte  rebours n'est par termin et que vous tes par-dessus la mine, elle explosera,  vous d'tre rapide ). Un mouvement de votre vaisseau  l'aide des touches 7 et 9 ( elles ont les mmes fonctions que dans les 2 premires phases ) quivaut  une dcrmentation du compte  rebours mais mme si vous ne bougez pas le temps de vous rendre sur une mine et de la dtruire, surtout ne bougez pas et attendez la fin du compte  rebours. Si vous aviez raison de ne rien faire, votre score augmentera de 10 points sinon boum!!! ( chaque mine rapporte 15 points ).
## 	Le score  battre est de 1720 points, alors courage et bonne chance !!
## PS : si vous voulez rduire l'cartement du tunnel, rduisez la variable E au dbut du programme ( augmentez la pour agrandir le tunnel ).
## A la ligne 14, O est le compteur de km. Pour allonger le tunnel, augmentez le test de la ligne 14. Si vous voulez raccourcir le tunnel, diminuez-le.
## 
## Programme :
1 REM ****buck rogers 2****
2 REM ****Ozanne alain****
3 CLEAR
4 DIM A$(3):A$(1)="04081C3850":A$(2)="1018381810":A$(3)="50381C0804":DIM B$(2),C$(2)
5 E=5:B$(1)="7F221C08":B$(2)="413E1408":C$(1)="081C227F":C$(2)="08143E41"
6 INPUT "Level 0 ou 1: ";R:R=1-R:IF R<>0 AND R<>1 GOTO 6
7 B=10:Z=12:V=15:GOSUB 609
8 WAIT 0
10 A=RND 3:B=B+(A-2):IF B>20 LET B=20
11 IF B<5 LET B=5
12 U=U+1:IF U>2 LET U=1
13 CLS:CURSOR B:GPRINT B$(U):CURSOR B+E:GPRINT C$(U)
14 S=S+1:O=O+1:IF O>200 THEN 1000
19 F=2
20 IF INKEY$="9" LET J=Z:Z=Z+1:F=1:IF Z>25 LET Z=25
21 IF INKEY$="7" LET J=Z:Z=Z-1:F=3:IF Z<5 LET Z=5
22 CURSOR Z:GPRINT A$(F):N=RND 7: ON N GOTO 100,(500-R)
25 IF (Z<=B) OR (Z>=B+E) THEN GOTO 200
30 GOTO 10
100 CURSOR 2:GPRINT "3E5D6B776B5D3E":BEEP 1,100,5
110 FOR I=1 TO 15:IF INKEY$="Z" THEN BEEP 1:S=S+10:GOTO 10
120 NEXT I
130 BEEP 1,255,255:GOTO 200
200 CURSOR Z:GPRINT "41082208220841":V=V-1:FOR I=1 TO 10:POKE# 64000,RND 256-1:NEXT I
205 BEEP 1,100,20:IF V<=0 THEN GOTO 300
210 Z=B+2:GOTO 10
300 BEEP 3,255:BEEP 1,100,100:BEEP 1,255,10
305 WAIT 80:PRINT "Mes sincres condolances":PRINT "vous avez explos!"
306 IF S<=0 LET S=0
310 PRINT "Votre score-=-=->";S
320 END
499 GOTO 25
500 BEEP 1,100,5:CURSOR 1:GPRINT "41221408142241"
510 FOR I=1 TO 15:IF INKEY$="Q" BEEP 1:S=S+10:GOTO 10
520 NEXT I
530 GOTO 200
600 "A":CLS:WAIT 0
601 FOR I=0 TO 48:GCURSOR I:GPRINT 1:NEXT I
602 O=7:FOR I=1 TO 13:WAIT 1:O=O+1:CURSOR O:PRINT MID$("Buck Rogers2",I,1):NEXT I
603 WAIT 0:FOR I=119 TO 155:GCURSOR I:GPRINT "40":NEXT I
605 FOR I=1 TO 250:NEXT I
606 GOTO 1
609 DIM T$(4)
610 T$(1)="4060606040":T$(2)="2030703020":T$(3)="1018781810":T$(4)="080C7C0C08"
615 CLS
620 FOR I=1 TO 4
625 WAIT 05:GCURSOR 65:GPRINT "08200050001040":GCURSOR 77:GPRINT "40100050002008"
630 CURSOR 12:GPRINT T$(I):BEEP 1,I,10
640 NEXT I
650 RETURN
1000 V=V+7:WAIT 80:PRINT "BRAVO!!":PRINT "Vous tes dans l7Eespace":CLS:WAIT 0
1001 DIM V$(5),W$(5):V$(1)="7F3E1C08":V$(2)="7F3E1C00":V$(3)="7F3E0000"
1002 W$(1)="081C3E7F":W$(2)="001C3E7F":W$(3)="00003E7F":W$(4)="0000007F"
1003 V$(4)="7F000000":WAIT 0:V$(5)="0000000000":W$(5)="0000000000"
1004 FOR I=1 TO 5:CURSOR B:GPRINT V$(I):CURSOR Z:GPRINT A$(2):CURSOR B+5:GPRINT W$(I):NEXT I
1009 B=RND(20)+5:Z=RND(20)+5:IF Z>24 LET Z=24
1010 J=B:A=RND 2:B=B+SGN(1.5-A):IF B>24 LET J=23:B=24
1011 IF B<5 LET J=6:B=5
1013 IF (B>Z-2) AND (B<Z+2) THEN 1100
1014 F=2:CURSOR B:GPRINT "0810381008":CURSOR J:PRINT " "
1015 IF INKEY$="9" LET J=Z:Z=Z+1:F=1:IF Z>24 LET Z=24
1016 IF INKEY$="7" LET J=Z:Z=Z-1:F=3:IF Z<5 LET Z=5
1017 CURSOR Z:GPRINT A$(F):CURSOR J:PRINT " "
1019 IF (B>Z-2) AND (B<Z+2) THEN 1100
1020 GOTO 1010
1100 CURSOR 2:GPRINT "081C2A082A1C08":BEEP 1,1
1105 FOR I=0 TO 2:IF INKEY$=" " THEN BEEP 1:S=S+10:CURSOR Z-2:PRINT "--":CURSOR Z+1:PRINT "--":K=K+1:GOTO 1400
1110 NEXT I
1120 CURSOR B-2:PRINT "--":CURSOR B+1:PRINT "--"
1140 GOTO 1200
1200 CURSOR Z:GPRINT "41082208220841":BEEP 1,1:V=V-1:IF V<=0 THEN GOTO 300
1210 FOR I=1 TO 10:POKE# 64000,RND 256-1:CLS:NEXT I:GOTO 1009
1400 CURSOR B:GPRINT "41082208220841":CURSOR B:GPRINT "0CD6AED60C00"
1410 FOR I=1 TO 10:POKE# 64000,RND 256-1:NEXT I
1415 IF K>=30 GOTO 2000
1420 CLS:GOTO 1009
2000 V=V+2:K=0:WAIT 80:PRINT "hourra!!":PRINT "mais il reste des mines!!"
2010 CLS:B=0:C=0:M=RND 23+2:IF M=13 THEN 2010
2011 J=RND 12
2012 T=12
2014 WAIT 00
2015 IF ABS(M-13)<J LET B=1
2016 CURSOR M:GPRINT "55221C2255":CURSOR 0:PRINT J
2017 WAIT 50:Z=13:CURSOR Z:GPRINT A$(2):WAIT 0
2018 BEEP 1,1
2020 FOR I=J TO 0 STEP -1
2021 CURSOR 0:PRINT USING "###";I:F=2
2022 IF INKEY$="9" LET C=1:F=1:T=Z:Z=Z+1:IF Z>25 LET Z=25
2023 IF INKEY$="7" LET C=1:F=3:T=Z:Z=Z-1:IF Z<3 LET Z=3
2024 CURSOR Z:GPRINT A$(F):CURSOR T:PRINT " "
2025 IF Z=M THEN 2500
2030 NEXT I
2040 IF C=1 AND B=0 THEN GOTO 2530
2041 IF C=0 AND B=1 THEN GOTO 2530
2050 BEEP 2,10,10:S=S+10:GOTO 2010
2500 CURSOR M:GPRINT "41221408142241":BEEP 1,1
2510 FOR I=0 TO 1:IF INKEY$=" " THEN BEEP 1:S=S+15:K=K+1:GOTO 2010
2520 NEXT I
2530 WAIT 5:GCURSOR (Z*6)-1:GPRINT "10282424242810"
2531 WAIT 0:CURSOR Z:GPRINT "2A1422142A"
2535 FOR I=1 TO 10:POKE# 64000,RND 256-1:NEXT I
2536 V=V-1:IF V<=0 THEN PRINT USING "#####";K:GOTO 300
2540 GOTO 2010